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Review: Asseably Language Books 
by Hector Santos 

It is ironic that users of the TI-99/4A had to suffer a 
dearth of good boors ar.p softaare for their ccacuter unti! 
Texas Instructs anr.cuncid their withdrawal froi the hoie 
coiouter aarret. Thes-e are no* available like never before. 
Where we settled f:r less than the ideal, our problea, no», 
is in siftins through those that are available and selecting 
what we really need! 

Such is the case «ith books relatina to the TPS9900 
Asseibly Lar.cuaae. U used to have the £ditor/Asseibier 
Manual and the Software tevelopient Handbook frsa Texas 
Instruaents . »e no* hive at least five other sources. Me 
mil cover three of tr.ei in this article and hope to cover 
the ethers in a subsequent article. 

The three books ire: 

Introduction to *ss**blv Laneuaae for the TI Kow 
Coaeuter by Rales ftsleswarth, Steve Davis Publishing 
139 paces, softcrver, 114.95 

Learnir.o TI-99/4A Hcie Coaputer ftsseibly Language 
Programing :y Ira RcCotic, Pretice-Hall 
331 paces, softccver, UlM 

Fundamentals ef TI-9°/4A Asseibly Language 
by N. S. Bor lev. Tab Books 
310 pages, softccver, Jll.50 



Introduction, to isseaclv Lar.cuaae for the TI Hoe? 
Cosouter, by Ralph *:!es*crth, wis the first to cose out. It 
atteaots to teach assetplv lanquace by aaunc :o«.:arisons tc 
BASIC stateaents. Presysibly, this helps you learn faster 
by letting you draw on vour &AS1C prograaaing skill. 

Aftsr an alass: cursory exclanation cf asseably 
lanquaoe. address:*: foraats. and the registers, you art 
thrown" into procraiimq. The instruction set is not covered 
separately, andietaiied leiory aaos and apoendices are not 
provided because tr; ccok was sear.t to b3 u!sd uith the 
Sditor/Assesbler Manual. At tna end of the :-arly chaoters 
are referenc?s t: caces in the Edit3r/Ass'"!er Manual and 
words in the clossarv that should be read. >ou learr, 
asseeblv languape bv following the exolar.aticns provided in 
the illustrative ;rc;r;ss. The programs ccver Inout/Output, 
file hanrilino, a-: sorting anJ har.oling arravs. Cf interest 
is Chapter if, which discuss?s ho* tc incorporate asseably 
lannuace routines in your BASIC prcgraos. The difference in 
coding "tcr the Editor/Assesbler and the Mmi-ftesorY aodules 
are clsirly »xpla:ned. Ass<;:..!:ng and running prograos 
using the two acC.les are als; exslained. 

Unfortunately, the book «as not provided »ith an index, 
a necessity in a bock of this nature. Do r.:t blaae the 
author: it is usually the publisher's responsibility to 

As'the title states, the book is an introduction . It 
5houl be enou5 k tc set you started in the right direction, 
tut do not expect to learn advanced procr;iaing techniques 
setting cpnte; m ssticn and checking -or their 

pcir'snce! 



The r.eit book, Learning TI-99/4A Hoie Computer Asseably 
Lancuaoe, by Ira HcCoiic, is acre foreally or;a.ii29s. 
Althoug it has a tutorial quality in the way that you are 
guided throuah saaple prcgraas, its foreat is acre like a 
college text." After a shcrt introduction to asseibly 
language, data structure, and the TI-99/4A architecture, an 
overview of the instruction sat is presented uith apre 
detailad exclanation later in the book. To chapter! are 
devoted to a discussion of the addressing foraats with 
Exaaples to illustrate hex each is used. Chaoters 9 and 10 
cover the use of the Editor, the Asseebler, the Loader, and 
the Debugger utilities of the package. 

The book sas written acre for use with the 
Editor/Assesbler. Of course, the principles vcu learn are 
iust as valid for the Kini-heacry cr the p-Systea 
Asseabler-Linker. A very good description of how asseibly 
language is handled by the Hini-Hesofy aodule is presented 
in uaoter IS as well as a description of the capabilities 
sf the p-Systea Asseabler-Linker. 

Illustrations and tallies are used throughout the book, 
helping you visualiza the storage and joveaent of data and 
the aaniaulation of bits in the registers. These lake it a 
lot easier to learn the subject than with text-oniy 
aaterial. 

Aocerdices are alio included. The aost useful is the 
alohabetical list of instruction code. Designed for quick 
ref-reoce, detailed and concise inforiatiofl is provided for 
each instruction cedel believe that after you learn assesbh 
language, this is one book that you will keep referring back 
tc. 

In contrast. Fundattntals cf the TI-9/4A Asseably 
Languaos, by U.S. florley, was written soecificaily for use 
eitn tne Kini-fleaory aodule. The author had in aind users 
who want to learn asseibly language but who do not own ar. 
exoansion systei . The flini-Hesory , in conjunction with the 
line-by-line asseibler , enables you to get started with 
very little investment. 



".orley starts out alaost like KcCcsic, covermc asseibly 
language, the T1-99/4A architecture, addressino toces, and 
the instruction set. Then, the use of the Hini : h£cory is 
exdcine^. You are shown how tc enter the source coce, and 
hot; to asseeble and debug the prccrai. 

At ;.ns point, ftcCoaic arc Hor'ley diverqe in their 
treatient of the suiject. «:Cc»ic ccaes back and discusses 
the instruction set in detail, ana uses proaraes t: 
{U-ustrate the topics . hcrley devotes the last two-thirds 
of his bock to routines. These lay be incorporated in your 
own orograas and are very thcrcuchly explameo. The 
appendix suiaarues all the operation codes, grouped bv 
cat.cories. Xhile not as coiplete as HcCcaic's bcci, it 
still is very useful. 

Ke have three books, each differing froi the others in 
its aporoach to teaching asseibly language. Khet about the 
Editor ,'Asseibler Manual ? I have heard a lot of proplj 
criticire the book, saying it is ncossible to learr 
assetily language froi it. The Manual is a reference bock 
and was not aeant to teach. It is a very good bock: very 
thorough, very detailed in is ccveraoe of the suiiect. 

Khen we try tc learn a new subject, we turn to tutorials 
for -help. Once we learn it. tutorials becoae of les use and 
we turn to reference aanuals for quick and concist 
inforiation, I reoofber xhen I *as trying to learn TI 
BASIC. I really liked Eecinner's BASIC, How I find the 
TI-99/4A User's Reference Euids «:re useful. 

Asseibly language is substantially tore difficult thsn 
BASIC. I suspect that there can never be a bcok. tutorial or 
whatever, that will eake it easy to learr.. 



EDITOR flSSDfSLER TUTDRIflL: Part II by M. Baker 

Uelcoae back to another blinding session of assesbly 
language. Before we really get into this new language it is 
iwoerative that we get soee basics out of the way. The 
predoiinant iooe in assewly language is its use of nuabers, 
naturally, Althoucn oeciui car. be used for the aost par; an 
understanding of HEX is extresely desirable. Adcresses for 
exaiole are HO maoers. To differentiate between deciial 
and HEXadeciial maoers we place the 'greater than* syiool 
) before the nuiber such as )76fi. 

What is hexaoeciial? First, what is denial? Deci neans 
ten and HEX leans sixteen. The ten refers to and dictates 
the "BASE" of the maber syste» in use. The nuaber of DIGITS 
in any maoer systei always counts up to Off LESS than the 
BASE. So, in our everyday maber systei of deciial the 
digits are 0, 1, 2, 3, 4, 5, 6, 7, fi, and 9. There are 10 
digits and we can count uo to 9. The maber TEN is not a 
digit but composed of two digits, 1 V .and '0'. Only single 
digit or character reoresentations cay be used. When we are 
converting free ere base to anotner it oay "aasear* this is 
not true out that is not the case. Also, ressc:er, count in: 
starts froa ZERO and not ONE! 

Uell we already said that hex eeans sixteen, fanasaa. 
That's two digits. One less than the base is fifteen and 
that too is two digits. The proolei is in our thinking, not 
the mabers. we are thinking in base 10 of a nusber systw 
higher than base 10. we don't have ioo lucn of a proales 
when we use base 2 (BINARY) or base 8 (OCTAL) since tnose are 
'within' our oresent maber usage. Since maoers are lereiy 
reoresentations of ouantities dictated by us we couid 
actually use anvthin: to reoresent a nuaoer systea. How 
about hieroglyonics! Mayoe Roian Nuaerals? As you probably 
already know these are representations that san nas usee. We 
don't want to overcoeoiieate things do we. We alreaoy have 
ten droits and aii we neeo are six core. Why no; letters? 



Gk. which ones? In tne world of sathewtics soskt* a lor.: 
tiae a?o \ery arbitrarily set uo that letters of the alphare: 
coulc inoeed reoresent numbers. Not only that but letters in 
the beginning of the alphaoet should centrally represent 
unvaryirj quantities wnile those at the ere represent 
chancing values. That is variaDles or unknowns. The 
oroveroial x. (Boy, I tell ya, soeeone always coses uo with 
soee icinc of rule.) Let's co that inert. The letters of 
course are A, B, C, D, E, fifd) F. Now we nave sixteen 
'digits' or cnaracters to reoresent our hexadecitai base. In 
orcer now they are: 0,l,2,3,4,5,6,7,8,9,A,B,C,D,E,r. 

Just as 10 in deciial represents a 'juap' to the next 
•unit' so does )10 in HEX. However their Values or 
■fightings are very different. )10 is eouivalent to 16 in 
denial and 10 is eouivalent to )A in HEX. Let's snow a 
maoer line to get the 'feci' of all tnis: 

d 1...9 10 11 12 13 14 15 16.. .25 26 27 23 29 32 31 32... 
h 1...9 ABODE F 10... 19 1A IB 1C ID IE IF 20... 

Let's do soae sioole hex arithisetic. If we acd >5 and 
)4 we coee up witn )9. Looks easy. Tnat's the sa=e answp- 
as in deciial. But, if we add )5 anc )5 we now get /A. How 
about )33 and )66. A nice )99. Everything wor"s scootnly 
until tne Drover Dial CARRY. It' not so bao out you do new 
15 fingers. How aDout )43 and )66. Wtiat oid you get? I ritts 
it was >A9. I'l not going to get into conversion now sine? 
that will take an awful lot of soace. The sizolis: way to 
attack this hex stuff is to use taales. You resteer tnoss. 
Just like the iuitiolication taoies you were forced to learn 
as a mild. After you get tne 'feel' of hex witn trut you 
can oo so*e reaoing (unfortunately on your c*^). You will 
then oe better equiped to tackle conversions, etc. 

To get you on the love I've included tne taslss for 
addition and iuitiolication in hex. Sooc Luc:-., :ccd reading 
(wnich you {JUST oo) ana see you next newsletter. 



Let's look into the memory architecture of the 99/4A 
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This block diagram came from TI and may be of general interest- 
a picture is worth a thousand words! 



TI-99/4(A) MEMORY ARCHITECTURE 
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KROM BANK 15~> 
h;WY LINES INDICATE FEATURES INCLUDED WITH CONSOLE 
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TMS 9900 



1 6-BIT MICROPROCESSOR 



FEATURES: 



• 16-Bit Instruction Word. 

• Full Minicomputer Instruction Set Capability including 
Multiply and Divide. 

• Up to 65.536 Bytes of Memory. 

• 3 MHz Speed (4 MHz option). 

• Advanced Memory-to-Memory Architecture. 

• Separate Memory. I/O. and Interrupt-Bus Structures. 

• 1 6 General Registers. 

• 1 6 Prioritized Interrupts. 

• Programmed and DMA I/O Capability. 

• N-Channel Silicon-Gate Technology. 



DESCRIPTION: 



TMS 9900 PIN 
ASSIGNMENTS 



900 mil 
64 PIN 




The TMS 9900 microprocessor is a single-chip 1 6-bit central processing unit (CPU) produced using N-ctiannel silicon-gate MOS technology. The 
instruction set at the TMS 9900 includes the capabilities offered by full minicomputers. The unique memory-to-memory architecture features 
multiple register files, resident in memory, which allow faster response to interrupts and increased programming flexibility. The separate bus 
structure simplifies the system design effort. Texas Instruments provides a compatible set of MOS ana TTL memory and logic function circuits to 
be used with a TMS 9900 system. The system is fully supported by software and a complete series of aevelopment systems 

The memory word of the TMS 9900 is 1 6 bits long. Each word is also defined as 2 bytes of 8 bits. The instruction set of the TMS 9900 allows both 
word and bvte operands. Thus, all memory locations are on even address boundaries and byte instructions can address either the even or odd byte 
The memory space is 65.536 bytes or 32.768 words. 

The TMS 9900 utilizes a versatile direct command-driven I/O interface designated at the communications-register unit (CRU). The CRU provides up 
to 4096 directly addressable input bits and 4096 directly addressable output bits. Both input and output bits can be addressed individually or in 
fields from 1 to 16 bits. The TMS 9900 employs three dedicated I/O pins ICRUIN, CRUOUT. and CRUCLK) and 12 bits IA3 through A 144 of the 
address bus to interface with the CRU system The processor instructions that drive the CRU interface can set, reset, or test any bit in the CRU array 
or move oetween memory and CRU data fields. 

RECOMMENDED OPERATING CONDITIONS 
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MAXIMUM TMS 9900 SYSTEM 




TMS 9900 INTERRUPT INTERFACE 



ORDERING INFORMATION: 

TMS 9900 NL - 64-PIN PLASTIC OIL 13 MHil (0/70°C) 
TMS 9900 JDL - 64-PIN CERAMIC OIL (3 MHz] (0/70"C) 



TMS 9900 JOE - 64 PIN. -J*0,'-85°C 

TMS 9900-40 NL - 64-PIN PLASTIC OIL (4 MHi] (0'70 : CI 
TMS 9900-40 JOL - 64-PIN CERAMIC OIL (4 MHjI (0/70=0 
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Figure 2. 
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Store from CRU 
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• 4A FORUM (Central IOWA) REVIEWS 



* 

* 



SECTOR 



Hex 


Dec 




Meaning (of the 256 bytes in the sector) 






as ss = = 


ISSS 






00- 


•09 


0- 


9 


The disk name you assigned 


OA- 


•OB 


10- 


• 1 1 


Number o-f sectors initialized (ex >0168 = 360) 


OC 




12 




Number o-f sectors per track (ex >09 = 9) 


OD- 


OF 


13- 


15 


TI 


identifier - " D S K " or >44534B 


10 




16 




Copy protection (ex >20 = none, >50 = protected) 


1 1 




17 




Number o-f tracks (ex >2& = 40) 


12 




18 




Number of sides (ex >01 = single, >02 = double) 


13 




1 9 




Disk density (ex >01 = single, >02 ■ double). 


14- 


•37 


20- 55 


not used 


38- 


64 


56- 


1 00 


> 


This is a bit map of all the sectors on the disk 


66- 


92 


102- 


146 


> 


Use depends on if the disk is SS, DS, SD, or DD 


94- 


CO 


148- 


192 


> 


1) Take each byte (45 bytes for 360 sectors) 


C2- 


EE 


194- 


238 


> 


2) Convert to bits <8 bits per byte) 












3) Reverse the order of the 8 bits 












4) If the bit is "0" then the corresponding 












sector (0 to 359) is free. If the bit is 












"1" then the sector is used. 


65, 


93 


10 1, 


147 


> 




CI , 


EF 


193, 


239 • 




not used 


FO- 


FF 


240- 


255 ■ 


y 














SECTOR 1 


Hex 




Dec 




Meaning 










= = 




00- 


1 


0- 


1 


Tells sector o-f 1st "alphabetic" -file directory 


02- 


03 


2- 


3 


Tells sector of 2nd "alphabetic" file directory 


• 
• 




• 




( " 


alphabetic" means that if the filenames were 


• 




• 




sorted this would be the 1st. 2nd, etc filename) 


FC- 


FD 


252- 


253 


Tells sector of the 127th "alphabetic" file dir. 


FE- 


FF 


254- 


255 


0000 is always after the last filename (if there 



was only one file then 0000 would be at >02-03) 



SECTORS 2-33 



Hex 




Dec 




Mean i ng 
















00- 


09 


0- 


9 


The file name that you used 


0A- 


0B 


10- 


1 1 


not used 


OC 




12 




File Type bit - 0=fixed l=variable length 












bit 4 - 0=none l=write protected 












bit 6 - 0=display l=internal format 




i 








bit 7 - 0=data l=program file 


0D 




13 




Number 


o-f records per sector (n/a for program) 


0E- 


OF 


1 4- 


15 


Number 


of sectors per .file 


10 




16 




End of 


file offset in last sector (n/a for fixed) 


1 1 




17 




Record 


size (n/a for program) 


1 2- 


13 


18- 


19 


Number 
note - 


of records per file (n/a for program) 

the bytes are reversed (ex >0102 = >0201) 


14- 


IB 


20- 


25 


not used 


1 C 




26 




Sector 


where file is located > repeats as needed 


1 D- 


IE 


27- 


28 


Number 


of sectors following > to use any sector 



note - the bytes are flipped (ex >12 = >2001> 
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■from - CENTRAL IOWA 99/4A U.G 
******** 



************ 

SHORT PROGRAM 



Time to do a little assembly language programming. Listed below 
is the sort routine that I gave in the August issue. 



Memory Label Op-Code Operand (s) 



7D0C 
7D0E 
7D12 
7D16 
7D1 A 
7D1C 
7D20 

7D22 
7D24 
7D26 
7D2S 

7D2A 
7D2C 
7D2E 

7D30 

7D32 
7D34 
7D38 
7D3C 
7D40 
7D42 
7D44 
7D4A 
7D48 
7D4A 
7D4E 
7D52 
7DS4 
7D5B 
7D5C 

7D5E 
7D60 

7D64 
7D68 
7D6C 
7D6E 
7D70 
7D72 

7D74 
7D76 



LI 

L2 
L3 



CLR 
LI 

BLWP 

BLWP 

DATA 

MOV 

DEC 

MOV 
SLA 
S 

SRL 

MOV 
MOV 
S 

MOV 

MOV 

BLWP 

LI 

LI 

MOV 

MOV 

MOV 

MOV 

A 

BLWP 
BLWP 
DATA 
MOVB 
AND I 
JEQ 

MOV 
BLWP 

LI 
LI 
MOV 

MS' »> 

MOV 

MOV 

A 

BLWP 



RO 

Rl , >2 
QNR 
SFP 
FI 

@FA, R2 
Rl 

R2 f R3 
R3, >2 
R2, R3 
R3, >2 

Rl , R4 
R2, R5 
R3, R5 

R4, R6 

R6, RO 
8NR 
R7, FA 
R8 , AR 
*7+, *8+ 
*7+, *8+ 
*7+ f *8 + 
• 7, *8 
R3, RO 
SNR 
SFP 
FC 

asT , RO 

RO, >4000 
L9 

R6, RO 
SNA 

R7, AR 
R8, FA 
*7+ , »8+ 
*7+, *8+ 
*7+ , *S+ 
*7 , *B 

R3, RO 
SNA 



Comment (equivilant in basic) 

This area sets up the program 
to receive the parameters that 
are passed -from the Basic line 
that calls the assembler sort 
routine. It's called by - 

CALL LINK < "SORT" , A ( ) , B> 

1000 C»INT(B*.7S) 



1001 FOR D-l TO B-C 

1002 E«D 

1003 IF A<EX-A(C + E) THEN 1009 



1005 A(E)«A(C+E) 



1004 F=A(E) 



1006 A ( C + E) =F 



7D7A 



R3, R6 



1007 E=E-C 
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Memory 


Label 


Op-Code 


Operand ( s) 










7D7C 




JST 


L3 


7D7P 




T NIP 


ft A 


7DS0 


l 


DEC 


R5 


7D82 




J6T 


L2 


7D84 




SRL 


R3, >1 


7D8© 




JGT 


LI 


— » tx n q 

7DSS 




fed ^ i ■ n 

nuvB 


R3 , 8ST 


7DSC 




' B 


*R1 1 


7T1DC 


KIR 


tuu 




/ Jot 






/6040 


7nnr 

/uot 


r— d 

P r 


ET PI 1 1 




7 Doc 


r I 


rni 1 

EQU 


> 1 200 


7DSE 


FC 


EQU 


>OAOO 


7D8E 


FA 


EQU 


>834A 


7D8E 


AR 


EQU 


>833C 


7D8E 


ST 


EQU 


>837C 


7D8E ' 




AC-RQ 


>7FEB 


7FEB 




TEXT 


•SORT » 


7FEE 




DATA 


>7DOC 


7FF0 




END 





• ♦**#***♦*♦*»***•»**** 
SHORT PROGRAM - cont. * 

Comment (equivilant in basic) 

1008 IF E>0 THEN 1003 

1009 NEXT D 

1010 C-INT(C/2) 

1011 IF C THEN 1001 

1012 RETURN 



Note - this area de-fines all 
o-f the labels that are used 
in the program (note that the 
■first -five would need differ- 
ant addresses if you were to 
use the Editor Assembler or 
Extended Basic modules to run 
this program) . 

Note - this area de-fines where 
the sorting program is located 
in the Mini Memory module. 
Change -for EA or EB modules. 



Here is how the workspace registers are used for the program - 

R0 » subscript & work area R5 ■ B-C 

Rl » paramenter & constant 1 R6 - E 

R2 ■ B R7 - indirect -from address 

R3 - C R8 » indirect to address 

R4 * D -Rll - SPL return address 

The program is meant to be run in the Mini Memory module. It may 
be assembled at any address after >7D0C (be sure and change the 
re-f/de-f table). If you want to use it with the Editor Assembler 
or Extended Basic modules, you will need the 32K expansion (the 
program will go in the 8K region) and the addresses for five of 
the subprograms (look in the Editor Assembler manual for these). 



The advantages of the assembly program are two fold. First is the 
increase in speed it offers over basic (4.2 vs 22.8 sec/100 #) and 
this can be speeded up 15 times by using the 32K expansion, since 
you can directly access the array in the 24K region and don't have 
to make time calling accesses to the VDP RAM. 

The second advantage is in the amount of space each program takes. 
The basic version eats up 179 bytes while the assembly version 
needs only 130 bytes. The basic variables use 75 bytes and the 
assembly a mere 18. Overall count - basic @ 254 bytes and the 
assembly 6 148 bytes (only 5S5i of the basic)! 
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* AN INPUT ROUTINE IN ASSEMBLY LANGUAGE by JIM RICE 



To be able to use the assembly routine I've listed in this article, you 
must have the console, the Edi tor / Assembl er cartridge, a disk drive, and the 
memory expansion card or peripheral. 

listed at the end of this tutorial through the 
as "DSK1 . INPUTS" , then assemble it. The object code ■file 
you assemble it, "R" is the only option you need to use. 
extremely useful as a subprogram. I have left the 



Type the procram I've 
editor. Save the -file 
is "DSK1 . INPUT" . When 
This INPUT routine is 



listing as simple as possible to make it easily adaptable to any type rvf 
application. The routine I've listed here places a non-flashing cursor in' the 
upper left hand corner o-f the screen. It waits -for you to type something. After 
you do, press enter. It will read what you typed in o-f-f o-f the screen, save it 
into the CPU RAM scratchpad, and print it back up on the screen in a different 
location. This saves what you typed in at CPU RAM address OB300 ) , the starting 
address of the CPU RAM scratchpad, for easy access for the remainder of the 
program. This is handy for when you want variables in your assembly programs or 
for writing to files through the DSR(device service r out i nes ) such as disk files 
a printer, or a modem. o 
HERE IS THE LISTING: 

REF KSCAN, VSBW, VMBW, VMBR * References to the ■ di f f er ent memory 

* resident routines used 

DEF RUN * Program name defined 

CHAR DATA >007C, >7C7C, >7C7C, >7C7C * Cursor character data. 
>A0 * ASCII code for cursor. 
>A8 * ASCII code for space character. 



BYTE 
BYTE 



Loads 
Loads 
Loads 



CURSOR 
SPACE 
RUN 

LI RO, >D00 * 
LI Rl , CHAR **** 
LI R2,8 **** 
BLWP ©VMBW * 
CLR RO 
Ci.R Rl 

LI R2./0D00 * 
LI R3, >2000 * 
L I R5, >0800 * 
CLR R6 

MOVB R0,S)>B374 
LI RO, 1 * 
More. (A=Abort, 
Jl LI Rl, CURSOR 

BLWP 3VSBW * 
CLR Rl 

BLWP 3KSCAN * 
MQVB 3>837C,R6 
COC R3,R6 * 
JNE Jl * 
MOVB 3>3375,R1 
CB R1.R2 * 
JEQ J 3 * 
CB R1,R5 * 
JNE J2 * 
MOVB ©SPACE, Rl 



Loads 
ASCI I 



the cursor 
code. 



character data into the cursor 



register (R2) with ASCII code 
R3 with byte used to check if 
R5 



with ASCII 



for "enter" key. 
key has been pressed 
code for backspace (fctn-s) character 



* clears ©>8374 (tells computer to scan whole keyboard 
loads RO with 1 (tells computer cursor 
any other key to cont.) 

tttt Prints cursor to screen at 



to go in upper left) 
location indicated by Rl 



Rl from 
"enter" 



address key code stored 



BLWP avsBw 

DEC RO 

J MP Jl 

J 2 BLWP 

INC RO 

JMP Jl 

J 3 MOVB 

BLWP 5>"SBW 



Scans keyboard 

* Loads byte that shows whether a key was pressed into R6 
Checks if key was pressed. 
If not, goes to Jl 

* Loads key pressed into 
Checks if key pressed is 
If so, go to J3 
Checks if key pressed is 
If not, go to J2 

* load space ASCII code 

* Put space where cursor was 

* Move cursor back 1 space 

* Go to J 1 

©VSBW * Write key detected to the screen. 

* Move cursor forward 1 space 

* Go to Jl 

©SPACE , R 1 * Load Rl with ASCII code for space 

* Write space to screen where cursor was 



backspace (f ctn-s) 
to Rl 
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* Load RO with starting address of variable inputed. 

* Load Rl with CPU RAM SCRATCHPAD startin address 

* Move 80 bytes of characters typed on to screen 

* Read variable input -from screen ?■< write it to CPUO8300) 



CLR RO 
CLR Rl 
CLR R2 
LI RO, 1 
LI Rl,>8300 
LI R2.80 
BLWP 3VMBR 
CLR RO 
CLR Rl 
CLR R2 

LI R0.513 * Load RO with 513(new address on screen to print variable to.) 
LI Rl,>8300 * Load Rl with address of data to be read (CPU SCRATCHPAD.) 
LI R2.80 * Move 80 bytes -from CPU scratchpad to new screen location 
BLWP 3VMBW * Write variable inputed back to new screen location. 
LIMI 2 * Enable quit key 

JUMP JMP JUMP * Wait -for quit key to be pressed. 
END 

The actual storing o-f the variable in CPU RAM stops after the BLWP 3VMBR 
statement. After that, the program is just reading the variable that was typed 
in back to the workspace registers and printing it back on to the screen at 
screen location 513. You can change where it is reprinted on the screen by 
changing the 513 to another number. The number must be between and 768. You 
can compute the number by multiplying the row you want times 32 and addinG the 
column to the product. 

You don't have to save your variable to the CPU RAM scratchpad. You could 
theoretically save it to any CPU memory location. If you don't use the CPU 
scratchpad, I -ecommend the memory expansion high RAM (>A000->PFE0) . To change 
location the variable is stored at, change the two times >8300 is used in the 
program to the new address you want to use. Also, you can save memory by making 
your variable buffers smaller. Mine, in this case is 80 bytes. That means that 
80 characters of what is typed in are saved in the CPU RAM scratchpad. You can 
make your buffer larger or smaller to fit your needs by changing the two BO's 
located just before the BLWP 3VMBR and the last BLWP 3VMBW to however many bytes 
you want stored in your buffer. 

To run the routine, the file name i s"DSKl . INPUT" and the program name is 
"RUN" HAPPY COMPUTING! ! ! ! 
Jim Ripe 
End of file 

71-99/4 *EH0f?Y ARCHITECTURE 



DESCP.ETE DEVICE 


ADDRESS 


USASE 


TMS9918A SCREEN 


>82CQ 


READ DATA 








>eso2 


READ STAT'JS 


THS9900 CPU 


50000 


CONSOLE P.3!1 OK BYTE! 




>8C00 


WRITE DATA 




>2000 


MEMORY EXPANSION (SK BYTE) 




>8C02 


WRITE ADDRESS 




MOOO 


DEVICE SERVICE FOMS i6K BYTE) 








>6000 


COMMAND MODULE F.S!J/RA>! !8K BYTE) 


TMS5200 SPEECH 


>9000 


READ DA1A 




>8000 


HAPPED PORTS (SEE BELOW) 


>9AC0 


WRITE DATA 




>A000 


MEMORY EXPANSION |2(K BYTE) 


t 




MAPPED PCRT3 




25i BYTES 


CR0H CONTROL 


>9S00 


BROH READ CATA 


FAST RAM 


)6000 


>9B02 


SF.QM READ ADDRESS 


! 








)9C')0 


GRCM KK1TE DATA 


TMS9919 SCUX3 


;s«;o 


HP.1TE LATA 




'■ T VrC02 


GROM SRITE A233ESS 


As you can see frai the :bove eeecry title, the aceunt of usablE teicr 


y in the BASIC'S is 


Halted to the ZY. fleck at 


>2000 and the V.K bl 


cck at >AO00 


, for Z2Y. total F:A*. The rest of the eeeory (32K) is considered to be 


systee overhead. 


T h:: seans thai this i 


i ths needed 


SSQur.t ct letorv to .irry on the re 


quired functions 


the ccecuter. 


The addresses 


::vfr. above ire known 


a: base addresses. These are t k e fceqinnirq of 


a block or seosont 


;t teaorv which 


contains a oroup 


it functions, such as the EK bloct 


ist-eer: :9S0C ar.o J9CC2. 









In assembly la'.cuaqe proqrassinq. a asthed cillsc base plus ditplaceier.t addressinq is used to calculate mi ncUte 
'.r.'.r'ra! addresses. Given a )r>ovn isse address, yra need only t Scare the eecant of offset, cr disoUceaent, needed to 
r*:ve the desired address. 
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-from: 

NORTHWEST OHIO 
User's Group 



7DOO 



us i rsio 



BPR I TEB IM 
1L_ Y UANQUAQE 



by Dal e Mil son 

The following Is a sprite 
ampla for the Mini Mtmory Mod- 
uU. It aay be ntcMtiry to 
make a few minor ch»nc«* for it 
to run in the Editor Assembler. 
To make sprites in assembly 
language ia not too hard but it 
doaa raauira soma aaaembly lan- 
guage skill* All you hava to do 
la load tha daairad color Cln 
thia c*»a for tha apaca charac- 
ter, 323, load in tha daairad 
-character pattern, and laad In a 
■prltt attribute list. 

The aprita attribute liat con- 
til m the dot-raw and dot-column 
petition on the acreen and alao 
the character number of tha de- 
eired pattern. 

If you want tha aprita to hava 
action, then you alao have to 
aet up tha motion table. Tha 
potion table contains tha row 
and column velocities and two 
•are bytee used by the interrupt 
routine. The velocities range 
froa >00 (atill) to >7F being 
the greeteat positive velocity 
to >60 being tha fastest 
negative velocity to >FF being 
the slowest negative velocity. 
In addition, you must specify 
the number of sprites that can 
be In motion in CPU PAD location 
>B37A. 

if you ara not sura about 
something in the program, try 
changing aome of tha numbers in 
thf data statements and see what 
h»r_>cena. It is probably the 
bant way to learn. 



7DOO 
7D02 
7D04 
7D06 
7D08 
700A 
7D0C 
7D0E 
7D10 
7DI2 



7DI4 
7016 
7DI9 
7D1A 
7D1C 
7D1E 
7D20 
7D22 
7D24 
7D26 
7D28 
7D2A 
7D2C 
7D2E 
7D30 
7032 
7D34 
7D36 
7D38 
7D3A 
7D3C 
7D3E 
7D40 
7D42 
7D44 
7D46 
7D4B 
7D4A 
7D4C 
7D4E 
7D30 
7D32 
7DS4 
7036 
7058 
703A 
7D3C 
7D3E 



FFOO 
7001 
8006 
0000 
O303 
0000 
FF99 
99FF 
1824 
42C3 



0200 
0384 
D060 
7D00 
0420 
6024 
0200 
0400 
0201 
700C 
0202 
0008 
0420 
6028 
0200 
0300 
0201 
7D02 
0202 
OOOS 
0420 
6028 
0201 
0001 
0A81 
0801 
837A 
0200 
0780 
0201 
7C09 
0202 
0004 
0420 
6028 
0300 
0002 
10F0 



7FFB 

7FFB 33 
7FFE 7014 
701E 

70 IE 7FF8 



A0RQ >7D00 

»««■*«*****>«»>* tttttttttttt 
t t 

< ASSEMBLY SPRITE GRAPHICS I 
* By Dais Wilson t 

t * 
■ ttStttttSMMtMlSItttsllIS 

* 

« SET UP DATA FOR GRAPHICS 
> 

CR DATA >FFOO 

SD DATA >7001, >B006, >D0O0 



COLOR CHAR SET 3 
SPRITE ATTRIBUTES 



S9 DATA >0303, >0000 SPRITE MOTION DATA 

PT DATA >FF99, >99FF, >1B24, >42C3 SPRITE PATTERN DATA 



* START MAIN PROGRAM SEGMENT 
t 

GO LI RO, >03e« 



LP 



MOVB 3CR.R1 

BLWP 356024 

LI R0,>0400 

LI Rl.PT 

LI R2.8 

BLWP 9>6028 

LI RO, >0300 

LI Ri.BD 

LI R2.3 

BLWP S>6028 

LI Rl,l 

SLA Rl,8 
MOVB R1,8>837A 

LI RO, >07B0 

LI '1*1,89 

LI R2.4 

BLWP 8>6028 ' 

LIMI 2 

J MP LP 



POINT TO VDP COLOR TADLE/SET S 
GET COLOR DATA IN MSB Rt 
MOVE SCR TO VDP >03B4 
VDP ADDR OF 8PR1TF PATTERN TABLE 
CPU ADDR OF PATTERN DESCRIPTOR 
6 BYTEB TO MOVE 
MOVE PT DATA TO VDP RAM 
SPRITE ATTRIBUTE ADDR IN VDP RAM 
SPRITE ATTRIBUTES TO BE WRITTEN 
NO. OF BYTES TO WRITE 
WRITE THE BYTEB 
1 SPRITE 
PUT 1 IN MSB 

NO. BPRITE3 WHICH CAN BE IN MOTION 
8PRITE MOTION TABLE VDP ADDRESS 
SPRITE MOTION DATA TO BE WRITTEN 
NO. OF BYTEB TO WRITE 
PUT MOTION DATA IN VDP RAM 
ENABLE INTERRUPTS TO MOVE SPRITES 
WAIT FOR FCTN OUIT 



t PLACEMENT OF PGM NAME IN DEF TABLE 
t 

AORG >7FF8 

TEXT 'SPRITE* PROGRAM NAME 
DATA GO" START AT "GO" 

AORG >701E 

DATA >7FFB START DEF TABLE AT 7FFB 

END 
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TI How Camtttr Ua fU f ta 



Using i prograiiing language is nothing tort than cottunicating in a *ay that bath you and your coiputer can understand. There art 
several different languages that you can use »ith the 4A. I'll highlight a different language every acnth and talk about its advantages 
and disadvantages. Last tonth. I discussed lacMnt language. This aonth, ie'11 look at a higher language: TKS9900 Asseibly. 

IKim tttnblj Intuit 

i 

As ! discussed last aonth, lachine language is extrnely difficult to use. This difficulty led to the use of a language ihich lets the 
prograner use anetonic (assisting or intended to assist eeiory) code. This language assigns csibinations of letters to represent 
operations previously only expressed by using binary (0 and 1) nubers. This (soteahat) easier language is called asseibly language 
because the inetonic coiaands wst bt translated (or assembled) back to their binary equivalants in order for the coiputer to carry thee 
out. The following is a listing of a asseibly language prograi that plays six cfciies over and over. 

REF mi 

Off OtlflE 

BUFFO W )1000 

HOI BYTE >01 

EVES 

chihc 

li ro, buffer 

LI Rl.CDATA 

LI R2.1J8 

BLkT 'VHBM 

LOOP 

UM 

LI RIOjBUFFER 

mv Rio, :>83cc 
sots :hoi,:>83FB 

TOVB !H01,1>83CE 
LIM 2 

L0OP2 

TOVB :>83CE,!>83C£ 
JEQ LOOP 
W L00P2 
CHATA BYTE X)3,>?F,>BF,>0F,>F,>n,l 

BYTE >09, >B€, >01 , >A4, >02, >C3, >01 , >90, >B4, >03, 4 

BYTE >03,m,>B7,>!M,5 

BYTE >03,>92,)B8,)D5,4 

BYTE >05,)A7,>04,>93,>BO,)B6,5 

BYTE >03,)94,>Bl,>D7,4 

BYTE X)3,>95,)B2,>08,7 

BYTF Xfi,>CA,X)2,>94,)B3,)M,4 

BYTE >03,>97,)B4,)01,5 

BYTE )03,>98,>B5,)D2,4 

BYTE >03, >83, >03, >90, >B4, >D3,3 

BYTE >03,)91,)B7,>D4,4 

BYTE X)3,)92,>B8,>03,7 

BYTE >OS,>A4,)O2,>93,>BO,>04,4 

BYTE >03,>94,)BI,>08,4 

BYTE >03,>93,>B2,)D8,4 

BYTE )03,>C3,>01,>94,>B3 I >D0,5 

BYTE >03,>97,>B4,)01,4 

BYTE >03,)98,)B3,>D2,7 . " 

BYTE >03,)9F,)BF,>DF,0 

END 

htnblj litquqt heqrit Listitf 



DdtraJ Texas t9/44 tar'i Groa Feonury 1984 

<Page 13> 



CMtrti Tnu W/4* Dnr't imp 



At you cm see, this is a lot of prograeting ju$t to get your cotputer to chi»i for you. 

Assembly language allow you strict control over ill functions of your coiputer— you ire telling the cotputer aictlf that to do. 

Assetbly language is ilso useful then tight control tust be iiintiined over the use of leeory. Assetfcly code doesn't tike up i lot of 
tetory. Tou cm have in extretely cotplex prograt in the built-in iteory ot your cotputer. 

The real disadvantage of asseebly language— and it is not trivial—is that you need still and a lot of tiie to prsgrat to it 
proficiently. 

Hotever, assetbly language is ideal for short, frequently executed prograt seqeents. After you trite and asseible your code, it can be 
called froi Extended BASIC. 

On the 4A there are three pieces of 'hardwre' that alio* assetbly language prograeting: the Editer/Asseteler todule, the llini Nteory 
tafule, or the p-Syttei card (or standalone). 

Next tenth, I'll cover the tost cotton and sitsle programing language on the 4A: TI BASIC. 

let Ittitts 



Dec 83 - Jan 84 



A9CUG CALL NEWSLETTER 
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ASSEMBLY LANGUAGE 
FROM EXTENDED BASIC 

We have £n Assembly Language group lid 
and running, and I hope that this group 
will be abls to develoo l n-f ormat i on " and 
proorams that will benefit all of our 
memDers. In the meantime tor those of 
you who like to prcoram. here are some 
notes on memorv and " PEEk" and "LOAD" 
addresses that can be used from either 
X-Basic or "Mi m -Memory" . 1 

First a little about the TI 99/4A 
memorv. In the console are two memer: es 
one is the "CPU", or Central Process! no 
Unit. the ether is the "VDP", or Vicec 
Display Processor. The VDP contains 1! 

table (containing the 
the screen ) , 2) the 
table (cor.tai nir.a the 
character! , *! the 
table (containing the 



the screen-image 
actual display on 
pattern generator 
pattern if each 
col or 



character 

foreground and background color of each 
character set). 4lthe Sprite attriouts 
list tcontainin.q all Sprite values), 5! 
12K o-f tree memory (RAM. for basic 
programming ; . 

The'l6,3B3 bytes contained :n the VDP 
RAM are net directly addressable bv the 
CPU. they are memory mapoec (mere on 
this in a later article). Per this 
reason vcu cannot use Call Pest to lock 
intc VDP PAM. However tcr those o-f you 
who nave "Mi ni -Memorv" . vcu can "CAi_L 
PEEKv"' and "CALL POKEY" to get into the 



trv 



RAM. 

+ K ■ 



SiiOW 
+ f l_ K 



you what 



m s 



>.n 



do, 

ther 



the Mini Memory Module, or trie- fc&itoj/ 
Assembler Moguls? into the console and 
select "TI BASIC" ana enter this 
program. 

100 FOR T=l TO 16 

110 CALL P0KEV(784,16+T! 

120 NEXT T 

This will load the color table into VDP 
RAM address >0C10 ar.d causes tne 
background color of the soace character 
on the screen to change color very, verv 
rapidly. Be orepared to out a delay 
loop between lines 110 and 12G if you 
want to see the colors instead of a 
blur. Now you can start to see the 
speed of the 9900 chip. 



Here's another proaram. This oroc 
thanks to THE CENTRAL IOWA 99/4A" 
GROUP newsletter "4A FORUM" . 



■am is 
USERS 



For those of you who have the Mini 
Memory or Editor Assembler cartridge, 
here is a little program that allows you 
to see the screen in "Normal Mode, Clear 
Mode (everythina is there out is 
invisible). Text "Mode. (to characters 
across). Multicolor Mode (each character 
is made' up of 'our blocks), anc Bit Map 
Mode (you need the 4/A to see each 
pixel ) . 



( Cant. Page 15) 
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No need to know assembler to access 
thesc. After vou run the ,jraaram, pre-;; 
N.C,T,M,S (the screen may" not b; 
readable, but the keys still work). 



j I 3 3" '. 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 



0) 



PRINT "PRESS A 
CALL KEY (5, . 
IF K<>78 THEN 140 
CALL P0K'EV(-327,68 
IF K<>67 THEM 160 

POKEV (-32352. OS 
>94 THEN 130 
POKEV (-32272.0, 
>77 THEN 200' 
POKEV ( -32280,0) 
>oo THEM 220' 
POKEV (-32766,0; 
100 



A KEY ===> N,C.T,M,B 



CALL 

IF K< 

CALL 

IF « 

CALL 

IF K< 

CALL 

GOTO 



■30945,0) 



NOW back to the CPU, contained in 

this memorv ara 2 - 4K ROM (Read Only 
Memory) chips that contain the bas"lc 
interpreter, operating system, and ';- = 
Device Service Routines (which connect 
up the P-Bcx anc it's cards), the Vices 
Disolay Processor, the Sound Generator, 
the Soeech Synthesiser and the CPU RAM 
Scratch Pad ;a 256 bvte RAM memorv 
sector used bv the CPU icr almost 
instantaneous ooeraticns. Adding a 32K 
Memory Expansion Card gives vou "65.535 
bytes ct CPU memory. To lcoK at (PEEK! 
these memorv address vau must use eithe- 
the Mini Memory, the Edi tar/ Assembler . 
or the Extended Basic Module. If. 
Ex-Basic vou must "CALL INIT" then "CALL 
PEEK (*»###. #tt>". 

Address to 32767 are positive numbers 
the same as the address CO = C. 32767 = 
32767). The address from 32768 to 65535 
are accessed bv subtracting 65536 -from 
the address number, resulting in a 
neaative address number (32763 - 6553c = 
-32763, 45010 - 65536 = -20526, 65535 - 
65536 = -1 ) . 



The form 
VARIABLE) 



is "CALL PEEK (ADDRESS. RETURN 



Here are some locations 
and what they do 



to "PEEK" at. 



(-31380, A) RANDOM NUMBER SENRATOR ("A" 
returns a random number between and 
99. You must use RANDOMIZE, first in a 
program to get a true random number. 
(-31879, T) VIDEO DISPLAY PROCESSCR 
INTERRUPT TIMER ("T" returns a value 
that is sequentially generated everv 
sixteenth of a second, from thru 255 )' 
(-31379, S) HIGHEST NUMBERED SPRITE IN 
MOTION. In version 100 XBASIC, this 
valu'e is always 29. Proaram execution 
using this version can be speeded up ov 
disadlina the Sprites above the or.es 
being used. A "CALL LOAD (-3 1873. A) " tc 
POKE the number of the highest numbered 
moving s-Drite into this location 
disables all Sprites above 'A'. Fcr 
version 110 this value is updated 
averytime a Sprite is put into motion. 



REG 1ST: 
ru: l den : 
" CALL : 
se to 
eai l ■ 



<-3:3-:,'6.64! DISABLE SPRITE 
1 1 ( "CALL LOADi-31806. 64) 
Sprite notion. 
(-31877, C! VDP STAR 
there was a Sprite Co: 
this instead of the 
q;ve you faster respc. 
Coni nci dance and more 
on the screen; 

i -31808. A, S) DOUBLE RAND 
GENERATOR ("A and 5" will e 
different random number with ,-ai 
to 255. A RANDOMIZE statement 
executed first. This can be 
21 ve you a random Sprite m-tic 
the allowable I'ange of -129 
vou use the t'ol laiinq: 
CALL PEEK ; -3 1808. A, 8) 
CALL MOTION (ttl,A-l23,B-12B! 
(-31806,16) DISABLE THE SUIT • 
AND "="! , At last. at last, 
before starting to program 
follawir.d: 

CALL INIT :: CALL LOAD (-3180t. 16 
and no more QUIT key mistakes. 
(-31906.32) SOUND GENERATOR 
DISABLED ("CALL LOAD" this *nd 



to 



s a! 



•iC" will 
c action 

rsturr a 
ucs trcm 
must be 



.-iH 



- h i n 
if 



( " FCTN" 



at 
use 

) 



SOUND" statement will not 
your console will lock 
sound or noise generated. 
(-31806,0) Turns all bits 
the QUIT KEY , the Sound 
:n back to 



turn : 
uo OP 



■ha 



ast, 
the 



ST CP 

also 

next 



'rtS 

and 



the Sprite metis 
(-28672. A) 



r I- 



the 



1 s 



■ es 



or r anc • 
G nerator. 
normal • 
returns a 9s then- 
spech synthesizer is attached, 
returns a nc speech synthesizer 
attached. Saves having to a: 
(-31988.63,255) Disables the 
(load your program first) This "_.-.LL 
LOAD" will gain vou the memory osing 
used by the disk drives (its like being 
able to CALL FILES (0) > . 

(-31888.55,215) To get the disk d~i.es 
back (sometimes it doesn't work, as a 
last resort type "BYE"). 
(-31931,0) If vou have saved a program 
in XBasic with the protect :pticn and 
you cannot list or save it again, use 
this to unprotect the proaras. 
(-31931,123) "CALL LOAD" this and ( vou 
will ' orotect it again. ("CALL 

PEEK (-31931 . P> will tall vou it a 
program is protected. 



If you find this type^ot 
useful and can use it. I G = 
obtain a subscription to the 
SMART PROGRAMMER by: 

MILLERS GRAPHICS 
1475 W. CYPRESS AVE. 



i r.ror 
uggei 



'.at i on 
ou 



SAN 0IMA3. CA. 



9 



It costs $12.50 csr year. He has 
promised memorv maps, memory dumcs. and 
other verv interestina and useful cata. 
the data on disabling the Function Qui. 
is from him. 



My thanks 



:o MIKE of the BREVAF'D USERS 



GROUP (BUG) , of 
several of the 
this article. 



Palm Bay. 
memory 



: or id a 



locations used 
Marshal 1 



r cr 
i n 
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DEF Ml 

* This program will check the 



* sprite that is de-fined with the 




CLR 


Rl 




t SPRNUM equate and test to see i-f 




BLWP 


9VSBR 




t a list o-f 


characters 


are on the 










t sam>B 


spot 


the sprite 


is on. 




SWPB 


Rl 


(RUNNER 


* 










MOV 


R1,R9 


CODE) 


t Call 


with 


CALL Ml (A) 




- 


AI 


Rl,4 




t A=0 i-f no 


match A— 1 i-f match 




SRL 


Rl,3 




* code 


written by Jon Burt 8/12/B4 




SWPB 


Rl 


! 












MOVB 


Rl, ax 




BPLWS 


EOU 


>83E0 












VSBR 


EQU 


>202B 






CLR 


RIO 


(RUNNER 


NUMASG 


EQU 


>200B 






MOVB 


«Y, RIO 


CODE) 


STATUS 


EQU 


>B37C 






SWPB 


RIO 




SAL 


EQU 


>300 








Di A or 




FAC 


EQU 


>B34A 






CLR 






tttttttittttttttttttttttttttttt 




nuvtt 


A V DA 




SPRNUM 


EQU 


1 


THESE 




CI.IDD 

SWPB 


DA 




CHAR1 


EQU 


65 


CAN 




A 


R4, RIO 




CHAR2 


EQU 


66 


BE 










CHAR3 


EQU 


67 


CHANGED 




CLR 


Rl 


(GET THE 


CHAR4 


EQU 


68 






MOV 


RIO, RO 


CHARACTER 


xxtxttttxxtxxxtxxxxxtxxxxxxxxxx 




BLWP 


8VSBR 


AT THAT 




EVEN 








SWPB 


Rl 


SPOT) 


OFFSET 


DATA 


>60 






S 


eOFFSET,Rl 




ZERO 


DATA 


>oooo, x>ooo 


, XX) OO, >oooo 










ONE 


DATA 


>4001, XX500 


, >O000 , XJOOO 




CI 
JEQ 


R 1 , CHAR 1 
ONEJP 


(TEST 
CHARACTER 


SAV11 


BSS 


2 






CI 


R 1 , CHAR2 


AGAINST 


MYWS 


BSS 


>20 






JEQ 


ONEJP 


SELECTED 


X 


BSS 


1 






CI 


Rl , CHAR3 


ONES) 


Y 


BSS 


1 






JEQ 
CI 


ONEJP 
R1„CHAR4 




Ml 


MOV 


R11,@SAV11 


HOUSEKEEPING 




JEQ 


ONEJP 






LWPI 


MYWS 




* 


add more compares here 












LI 


R4,4 


(LOAD 




LI 


RO , SPRNUM 


(POINT TO 
RIGHT PLACE 




LI 
LI 


R3, ZERO 
R2,FAC 


CHOICE IN 
FP FORMAT) 




DEC 


RO 


IN SAL) 


LOOPO 


MOV 


*R3+, >R2+ 






SLA 


R0,2 


mult BY 4 




DEC 


R4 






AI 


RO,SAL 






JNE 


LOOPO 






CLR 


Rl 






J MP 


CONT 






BLWP 


evsBR 




ONEJP 


LI 


R4,4 


(LOAD 1 




SWPB 


Rl 






LI 


R3,0NE 


CHOICE IN 




MOV 


R1,R8 






LI 


R2.FAC 


FP FORMAT) 




AI 


R1,R5 




LOOP1 


MOV 


*R3+, tR2+ 






AND I 


Rl, >OOFF 






DEC 


R4 






SRL 


Rl,3 






JNE 


L0DP1 






SWPB 


Rl 














MOVB 


R1,@Y 




CONT 


CLR 
LI 


RO 
Rl,l 


(SEND BACK 
THE INFO TO 




LI 


RO, SPRNUM 


(POINT TO 
RIGHT PLACE 




BLWP 


©NUMASG 


EX BASIC) 




DEC 


RO 


IN SAL) 




LWPI 


GPLWS 


(ENDING 




SLA 


R0,2 


mult by 4 




r.ov 


6SAV1 1,R11 


HOUSE- 




INC 


RO 






CLR 


©STATUS 


KEEPING) 



RT 
END 
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Listing 1 Dump 



none 


> 7 D 1 4 




MC V I 


7>98>3 , - 51 


GET MSB OP r. i o m Anna r * t n ci 

vs.* nap wr unun a kf tv ft i f 1 vJ 3 i 


S W P B 


j 5 1 




M C V S 


- > 9 8 2 . * S 1 


GET LSI OP CXOM i n n ■ 


5 W P B 


; S 1 




dec 


1 


CORRECT rOR AUTO — 1 xn rMFNT 


L 1 


• , > 1 D 9 




L • 


1 , P D 




I i 


2 . S 6 




B L W P 


t > 6 3 8 


WRITE P A I TO VDP ham 


I ] 


6 . > 1 9 9 




H V 


ft > 8 3 5 6 


b o 1 w T to n r v i o r Mtur ■ r m r t b 


B L W P 


r > 6 5 8 


nc 1 1 N [ TO O P P N PfllNTrB 


DATA 


8 




^ 1 


10 > 9 4 9 




MOT 


19 , £ > 7 D £ A 




^ j 


9 > 1 D 9 9 




L j 


1 > 9 3 9 9 




1 L W P 


ft > $ 9 3 4 


• tit wcitt on *■ rt n r in •■■ 


L ] 


9 > 1 D 9 5 




^ 1 


1 > 9 4 9 9 




B I W P 


ft > 9 9 3 4 


jut t r n o t r or M I n tit 


I | 


9 , > 1 E 9 9 




l | 


1 ' £ 2 


PUT cod t poii r i s h i & c. r rtm & 


L I 


3 ! 4 


8/75" VERTICAL LIME SPACING 


I LWP 


■? > 6 9 3 8 


IN DATA BUFFER. 


MOV 


9 . £ > 8 3 S 9 


POINT TO DEVICE MAKE LENGTH 


B I W P 


S > 9 9 3 8 


D S B L N I - CHANGE VERT SPACING 


DATA 


8 




L 1 


19.59 


D E L A T 


D £ C 


1 9 




I N E 


1 - 3 




cm 


9 


Rt->NCZT SCREEN POSITION 


MOV 


9 . 9 




B I WP 


£> 6 9 2 C 


POT BYTE OF SCREEN RAM IN R1 


SHL 


1 . 8 


SHIFT TO LSB OF R1 


A t 


1 ,-138 


ADJUST FOR BASIC 


SLA 


1 . 3 


• 8 


A I 


•1,19 3 4 


PTRR ADDR-1934+(CHARf-33 ) • 8 


MOV 


1 . 9 




t I 


1 . 1 N 




I I 


2 . 9 




B t WP 


p > 6 9 3 9 


PUT PATTERN INTO IN 


t j 


5.128 


R 5 « B 1 T 1 


C L H 


§ 


nx h nppcpT for no 

no ■ isrraLi run w u 


I \ 


6.138 


S € v BYTE! 


c i n 


3 


Dt — or rt r T PON IN 


C t R 


4 


n a is rot i u i t n i n f. wttt rnin 


C L ft 


7 




MO V B 


2 I N I 3 ) ,7 


R7 HOLDS 3 T T E BEING DECODED 


f- W P B 




PUT RY*P IN leu or HI 

ruj p i • t. in Loo ui n/ 




7 . 5 


IS » 1 I ON* 


' I T 


L ^ 


M O 


i_ 


6 4 


TPC TT1BN n Tl T D IT T MIT r> M 

TLd.iunn uuirur bit c?i 


5 


3 . 7 


t ti b m orr i u t n t bit 
iunn v t t inrUT BlI 


5 W P B 


j 


rui bttl in nss or c / 


M V B 


> . a i n ( * } 


V r W TB t T T* T 1 U 

nLWrtlTL TO IN 


INC 


j 


rUlnT TO Nil] INPUT 1 Til 


S R A 


6 1 




t ft T 




y U f» L * T ETTt, Ir MOP. L 


5 W P B 




PUT U U t r U 1 BTTL _1 n W 5 3 OF H 4 


M V B 


4 . ? D O I 8 ) 


3 I vn L AT DO 


I N C 





POINT TO NEXT BYTE OF DO 
/ 3 




5 1 


1 f T 
1 t* I 

1 J 


i * 

L 5 


CONSTRUCT NEXT OUTPUT BTTE 


* I 


1 > 9 9 9 9 




I I w p 


5 > 9 9 2 4 


JTJT TPNOTP OP A IN BIB 
rui l i. n t r. ui 4 in TAB 


l 1 


9 . > 1 E 9 9 




I 1 


1 ] E 1 




L 1 


3 . 4 




B LWP 


4 > 6 9 2 8 


TOT ESC I SCQ. IK DATA IHF 


L ! 


6 . > 1 D9 9 




MOV 


6 , *> 8 3 5 6 


TOIHT TO DEVICE NAME LENGTH 


B L WP 


$ > « 9 3 8 


DSRLNt TO WRITE ESC t SEO. 


DATA 


1 




L I 


1 9 . > 9 9 9 9 




MOV 


19 , $ > 7 D E A 




I I 


9 . > 1 D 9 5 




L I 


1 . > 9 8 




S L WP 


-> 9 9 2 4 


PUT LENGTH Or 8 IN ?AJ 


L 1 


9 . > 1 E 9 9 




L I 


1 . DO 
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Listing 1 Dump continued 





I | 


i . a 






1 L w p 


T > 6 • 2 8 






MOV 


8 > 6 3 5 6 






1 L W P 


> 6 3 2 






DATA 


g 






I i 


1 1 i } I 


P E I AT 












I H E 


t _ 7 






i ■ r 




•> it i aa t t n mttt t i r r m • r\ * i t i u 

r O I W I TO n L A E } (. 1 C L n f U 5 I T 1 O N 




W 1 




DUfl l w i i n a L n t J, n I t I l 








T C S 






ft M I , 9 


■an « a r uj r ■•> run n r TtwF* 
ilW. A n L W L AT L H D Or L I n L 7 




I H E 


I a 


n CJ — U U H L 1 I S C Jl L L n CMAnACIfcfl 




^ I 


> 1 D 9 5 


TL5— WrUirUT tit I i 




L | 


1 > • 3 • • 






1 L W F 


a > t % j t 








• . > 1 C • • 






£ | 


1 ; CI 






I | 


2 . 2 






I [iff 


a> i ( 2 a 


PUT CI ir INTO DATA BUrFEX 




MOT 


f . 3 > a 5 5 6 


POINT TO DEVICE NAME LENGTH 




| [Wf 


s > * a i a 


DSRLNI TO OUTPUT CI IF 




DATA 


a 






I | 


1 a . > a * a a 






MOT 


ia.e>'DEA 






1 M P 


i a 


DO NEXT SC8EEK CHARACTER 




I | 


a . > i Da a 


COME BIU WHEN FINISHED DUMP 




L | 


-i , > a i a a 






B L W P 


s > a a 2 « 


PUT CLOSE OF CODE IN FAB 




MOV 


a ,«>ust 


POINT TO DEVICE NAME LENGTH 




1 I W F 


s>aasa 


DSRLNI TO CLOSE PRINTER 




DATA 


a 






I 1 


1 a , sa 


DEL AT 




DEC 


1 a 






I N E 


1-2 






MO V 1 


4 5 1 |>9Ct: 


RESTOIE SAVED DATA TO GIIMWA 




s w p B 


3S 1 






MOV) 


$S 1 . J>ICI3 






s 1 


e> a J 7c . «> a J 7c cleai choii itte for basic 




L ! 


1 a . 5 a 


DELAY 




d : c 


1 a 






1 » E 


I - 2 






1 


• 1 1 


RETURN TO BASIC 


i n 


1 s s 


8 


AREA TOR SCREEN PATTERN 


DO 


1 s s 


a 


AREA TOR PRINTER PATTERN 


MC 


DATA 


>o » 1 r 


HASI TOR EOL TEST 


r d 


DATA 


>aai2.>iEea 


>rraa.>«ata>oaiA 


• 






P A I DEFINITION 




TEXT 


' SS1SJ . P A«0 


DA-a.BAc9eaa.CR' 


a 






DEVICE NAME 


CI 


DATA 


> a d a a 


C R IF 


1 1 


DATA 


>imi , > rr aa 


ESC X CRAPHICS SEQUENCE 


S 1 


1 5 S 


7 


SAVE AREA 


E 2 


DATA 


> • d 1 i . > « 1 a s 


CH AND ESC A VEHT SPACING 




END 







^2 



Listing 2 

cji'lil! 

CALL 



10 

111 
12 8 
150 

fa 9 

159 
16 9 

1,7,9 



CALL 
CALL 
IF 
! F 



Screen Dump 

I Hill! MINIM MM 

|M'8:3'C7!ETTT!F;7E3C18"' 



C'L E A R ! 
CHAR:( 96 
H CH A H ( 1 



,1'. 9 6 . 7 68 ); 



t'Z'V.i 9:,,RVA : L',,STAT)i 
STAT = 9i THEN: 1 3 0' ! I 
R VA L<> 8 0: THENI iV5 91 j 



call: 

EKD i 



,L!1 HIH\' D:UM.P|'I | 



I I 



I 



I i I 

Ml 



i 



1MI 



The Bcsc of 99'cr Volume 1 



<Page 18> 



This program tills the screen 

with the alphabet one letter at a 'time, and then repeats. There is no provision -for 
returning to basic, so you wiil have to reset the computer to get the program to stop. 
One note.... when a program is executed in this manner, you cannot return to basic with 
B IR11, or a RT command since the contents ot register 11 have been changed. The only 
way le-ft (and I think the best way) is to branch to location >0070. This will return to 
the next basic statement to be executed. 



0001 


GPLWS 


EQU 


>B3E0 


GPL REGISTERS 


0002 


VSBW 


EQU 


>2020 


VIDEO WRITE 


0003 


START 


LI 


Rl, 161 


CHAR CODE FOR A 


0004 


A 


CLR 


RO 


FIRST SCREEN POSITION 


0005 




SWPB 


Rl 


CHAR TO LEFT BYTE 


0006 


B 


BLWP 


8VSBW 


WRITE TO SCREEN 


0007 




INC 


RO 


NEXT SCREEN POS 


0008 




CI 


R0.769 


LAST ONE? 


0009 




JNE 


B • 


NO, LOOP 


0010 




SWPB 


Rl 


CHAR CODE TO RIGHT BYTE 


0011 




INC 


Rl 


NEXT LETTER 


0012 




CI 


Rl,187 


PAST Z? 


0013 




JNE 


A 


NO, LOOP 


0014 




JMP 


START 


YES, START OVER 


0015 




AQRG 


GPLWS+22 


POINT TO RETURN ADDRESS REGISTER 


0016 




DATA 


START 


OUR STARTING ADDRESS 


0317 




END 




END OF PR06RAM 



After you assemble the program (use only the R option), load it under Extended Basic. It 
should begin to execute as soon as it loads. 

As I mentioned be-fore, most of my assembly programs interface with Extended Basic. 
Last year I needed a program that would allow me to examine and change memory locations 
while an Extended Basic program was running. The -following is an Extended Basic program 
that allows you to do just that. In addition it has both a hex to decimal and a decimal 
to hex conversion routine. Here is a list o-f allowed commands. 



A - Alter memory. Allows you to change the contents o-f the memory location you specify. 
D - Decimal to Hex conversion. 
H - Hex to Decimal conversion. 

M - Memory Dump. Gives the contents o-f consecutive memory locations in both hex and 



ascii. Optionally outputs to a printer. 

AID (FCTN 7) - Prints a list o-f allowed commands. 

100 HEX*="0123456789ABCDEF" :: A1U>«4096 :: Al (2) =256 :: Al(3)=16 :: Al(4)=l 
110 CALL PEEK (8198. A) :: IF AO170 THEN CALL INIT 

120 OPEN #1:"PI0" CALL CLEAR :: CALL CHAR (48, "003A444E54644438") :: GOTO 360 
130 CALL CLEAR :: PRINT "STARTING ADDRESS (HEX) ? ": "PRESS ENTER TO ABORT. "; 
140 ACCEPT AT(23,25)BEEP VALIDATE (HEXS ) SIZE(4):H$ :: IF HS="" THEN 360 
150 PRINT "OUTPUT TO PRINTER (Y OR N) ?"; :: CALL SOUND (150, 1400, 2) 
160 CALL KEY(3,K.S) :: IF S=0 THEN 160 ELSE IF K<>89 AND K<>78 THEN 160 
170 IF K=89 THEN PR=1 ELSE PR=0 
180 GOSUB 690 ARD=DEC 
190 CALL CLEAR 

200 PRINT "PRESS ANY KEY TO PAUSE. " : "PRESS ""BEGIN"" TO ABORT.": : 
210 DEC=ADR : : GOSUB 740 : : IF ADR>32767 THEN ADR=ADR-65536 

220 CALL HCHAR(24,2.62) :: PRINT H$; " ="; :: IF PR=1 AND PR 1=0 THEN PRINT 1'$=" >"?<H$?<" =" 

230 FOR C1=0 TO 5 

240 CALL PEEK(ADR+C1.A2(C1) ) 

250 DEC=A2(C1) :: GOSUB 740 

260 IF Cl/2=INT(Cl/2) THEN PRINT " :: IF PR=1 THEN PRINT1*=PRINT1*?<" " 
270 PRINT SEG$(H«,3.2) ; :: IF PR=1 THEN PRINT 1 $=PRINT1S?<SE55 (HS, 3, 2) 
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2S0 NEXT CI : : PRINT " "; 

290 FOR C1=0 TO 5 :: IF A2(C1)<32 OR A2(C13>126 THEN PRINT :: IF PR=1 THEN 

PRINT2S=PRINT2S&"." 

300 IF A2(C1)<32 OR A2(C1)>126 THEN 320 

310 PRINT CHRS(A2(C1) ) ; :: IF PR=1 THEN PR I NT2*=PR I NT2S&CHR* ( A2 ( C 1 ) ) 
320 NEXT CI :: PRINT :: IF PR=0 THEN 340 

330 IF PR1=0 THEN PR1=1 :: GOTO 340 ELSE PRINT #1 : PRINT1S; " ";PRINT2* t: 
PRINT1S.PR1NT2*=" U :: PR1=0 

340 CALL KEY(0,K,S) :: IF S=0 THEN ADR=ADR+6 :: GOTO 210 ELSE IF K=14 THEN 360 

350 CALL KEY(O.K.S) :: IF S<=0 THEN 350 ELSE IF K=14 THEN 360 ELSE ADR=ADR+6 :: GOTO 210 

360 PRINT : : "COMMAND ? " :: CALL SOUND ( 150, 1400, 2) 

370 CALL KEY(O.K.S) :: IF S=0 THEN 370 

380 IF K«81 THEN CALL CLEAR :: END 

390 IF K=72 THEN 460 

400 IF K=68 THEN 520 

410 IF K=77 THEN 130 

420 IF K»65 THEN 580 

430 IF KOI THEN 370 

440 CALL CLEAR PRINT "Q=QUIT": "H=HEX TO DECIMAL CONVERSION": "D=DECMIAL TO HEX 
CONVERSION": "M=INSPECT MEMORY" : "A=ALTER MEMORY" :: GOTO 360 
450 GOTO 370 
460 CALL CLEAR 

470 PRINT "ENTER HEX NUMBER (0 TO FFFF) ": "PRESS ENTER TO ABORT.":"? "; 
480 ACCEPT AT (24, 3) BEEP VALIDATE <HEX$> SIZE(4):H* :: IF HS=" M THEN 360 
490 GOSUB 690 :: PRINT 

500 PRINT ">";H*;" =";DEC; :: IF 0EO32767 THEN PRINT " OR ";DEC-65536: : ELSE PRINT : : 
510 GOTO 470 
520 CALL CLEAR 

530 PRINT "ENTER DECIMAL NUMBER": " (-32767 TO 65535) " : "ENTER TO ABORT": "? " 5 
540 ACCEPT AT(24,3)BEEP VALIDATE (NUMERIC) SIZE(6):DEC 
550 IF DEC=0 THEN 360 

560 IF DEC<-32767 OR DE065335 THEN PRINT : : "ERROR !!": : :: GOTO 530 
570 T1=DEC :: GOSUB 740 :: PRINT : :T1;"= >";H$: : :: GOTO 530 
5S0 CALL CLEAR 

590 PRINT "ENTER MEMORY ADDRESS (HEX) ' : "PRESS ENTER TO ABORT":"?"; 

600 ACCEPT AT(24,3)BEEP VALIDATE (HEX$) SIZE(4) :H$ :: IF H*="" THEN 360 :: H1$=H$ 

610 G'JSUB 690 :: IF DE032767 THEN DEC=DEC-65536 :: A4=DEC ELSE A4=DEC 

620 CPLL PEEK (DEC, A3) 

630 DEC=A3 : : GOSUB 740 

640 PRINT : : "MEMORY ADDRESS >":H1$;" = >"; SEG$ (HS, 3, 2) 

650 PRINT : : "ENTER NEW VALUE (0 TO FF) . ": "PRESS ENTER TO ABORT.":"?"; :: ACCEPT 
AT(24.3)BEEP VALIDATE (HEX*) SIZE(2):H* :: IF- «$="" THEN 670 
660 GOSUB 690 :: CALL LOAD <"" ,A4, DEC) 
670 PRINT : : : : GOTO 590 
680 END 

690 REM ** HEX TO DEC CONV ** ENTER H*=HEX# EXIT DEC=DEC# 
700 C1=4-LEN(H$) :: DEC=0 
710 FOR C=l TO LEN (H*) 

720 A=POS(HEX$.SEG*(HS,C. 1) , 1)-1 :: DEC=DEC+A*A1 (C+Cl ) 
730 NEXT C :: RETURN 

740 REM ** DEC TO HEX CONV ** ENTER DEC=DECtt EXIT H$=HEX* 
750 H$="" :: IF DEC<0 THEN DEC=DEC+65536 
760 FOR C=l TO 4 

770 A=INT(DEC/A1 (C) ) :: DEC=DEC-A*A1 (C) 

760 H$=H4?<SEG* (HEXS,A+1, 1) . . 

790 NEXT C :: RETURN 



This Drogram reouires Extended Basic to run, and reauirss the 32K memory expansion 
option to use the alter memory -function. H your printer uses other than the PIO port, 
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